home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / imb9108.zip / LIBRARY1.BAS < prev    next >
BASIC Source File  |  1991-06-17  |  176b  |  13 lines
  1. DEFINT A-Z
  2. END
  3.  
  4. SUB PosPrint (NewRow%, NewCol%, Msg$)
  5.  
  6.   CurCol = POS(0)
  7.   CurRow = CSRLIN
  8.   LOCATE NewRow%, NewCol%: PRINT Msg$;
  9.   LOCATE CurRow, CurCol
  10.  
  11. END SUB
  12.  
  13.